home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_503_EachMenu < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.1 KB  |  48 lines
  1. %case usesDialogs%
  2.     %for each menuitem gen usesDialog%
  3. %case importItems%
  4.     %for each menuItem gen importItem%
  5. %case doItems.decl%
  6.     %for each menuitem gen doitem.decl%
  7. %case addResMenu%
  8.     %if menuname = Font%
  9.         AddResMenu (MAGetMenu (m%menuname%ID), 'FONT');
  10.     %endif%
  11. %case doItems%
  12.     %for each menuItem gen doItem%
  13. %case handleItems%
  14.     %for each menuItem gen handleItem%
  15. %case enableItems%
  16.     %for each menuItem gen enableItem%
  17. %case defineMenu%
  18.     m%menuname%ID%        %= %MenuID%; 
  19.         %for each menuItem gen defineItem%
  20.  
  21. %case dynamicMenuProc.decl%
  22.     %if menuname = Font%
  23.         METHOD DoFontChange    (menu:    INT16;
  24.                                  item:    INT16);
  25.     %endif%
  26. %case dynamicMenuProc%
  27.     %if menuname = Font%
  28.         (*SEG ASelCommand*)
  29.         (*----------*)
  30.         METHOD T%appname%Doc.DoFontChange    (menu:    INT16;
  31.                                               item:    INT16);
  32.         VAR
  33.             aName:        Str255;
  34.             newStyle:    TextStyle;
  35.         BEGIN
  36.             GetItem (GetMHandle (menu), item, aName);
  37.             GetFNum (aName, newStyle.tsFont);
  38.             (*. handle font change .*)
  39.         END DoFontChange;
  40.  
  41.     %endif%
  42. %case dynamicMenu%
  43.     %if menuname = Font%
  44.         IF menu = mFontID THEN
  45.             DoFontChange (menu, item);
  46.         END(*IF*);
  47.     %endif%
  48.